home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 151-175 / scopedisk156 / fmsdisk / tag.a < prev    next >
Text File  |  1995-03-19  |  2KB  |  124 lines
  1.     ifd    HX68
  2.     objfile 'tag.o'
  3.     optimon -1
  4.     endc
  5.  
  6.         include "exec/types.i"
  7.         include "exec/exec.i"
  8.         include "exec/resident.i"
  9.  
  10.         xref    _geta4
  11.         xref    _Init
  12.         xref    _CoProc
  13.  
  14.         xdef    _DeviceName
  15.         xdef    _IdString
  16.         xdef    _DUMmySeg
  17.  
  18.         xref    _DevOpen
  19.         xref    _DevClose
  20.         xref    _DevExpunge
  21.         xref    _DevBeginIO
  22.         xref    _DevAbortIO
  23.  
  24.         xdef    _TagDevOpen
  25.         xdef    _TagDevClose
  26.         xdef    _TagDevExpunge
  27.         xdef    _TagDevBeginIO
  28.         xdef    _TagDevAbortIO
  29.  
  30.  
  31.         moveq.l #0,D0        ;   word
  32.         rts            ;   word
  33.  
  34. InitDesc:
  35.         dc.w    RTC_MATCHWORD
  36.         dc.l    InitDesc
  37.         dc.l    EndCode
  38.         dc.b    0        ;   not auto-init
  39.         dc.b    2        ;   version
  40.         dc.b    NT_DEVICE
  41.         dc.b    0        ;   priority
  42.         dc.l    _DeviceName
  43.         dc.l    _IdString
  44.         dc.l    _TagInit
  45.         dc.l    0        ;   extra ?
  46.         dc.l    0
  47.         dc.l    0
  48.  
  49.         dc.w    0        ;   word (long align)
  50.  
  51.         ds.l    0        ;   LW align
  52.         dc.l    16
  53. _DUMmySeg:    dc.l    0
  54.         nop
  55.         nop
  56.         jsr    _geta4(pc)
  57.         jmp    _CoProc(PC)
  58.  
  59.         ;   C Interface routines
  60.  
  61. _TagInit:
  62.         move.l    A4,-(sp)
  63.         move.l    A0,-(sp)
  64.         jsr    _geta4(pc)
  65.         jsr    _Init(pc)
  66.         addq.l    #4,sp
  67.         move.l    (sp)+,A4
  68.         rts
  69.  
  70. _TagDevOpen:
  71.         move.l    A4,-(sp)
  72.         move.l    D1,-(sp)
  73.         move.l    A1,-(sp)
  74.         move.l    D0,-(sp)
  75.         jsr    _geta4(pc)
  76.         jsr    _DevOpen(pc)
  77.         lea    12(sp),sp
  78.         move.l    (sp)+,A4
  79.         rts
  80.  
  81. _TagDevExpunge:
  82.         move.l    A4,-(sp)
  83.         jsr    _geta4(pc)
  84.         jsr    _DevExpunge(pc)
  85.         move.l    (sp)+,A4
  86.  
  87. _TagDevClose:
  88.         move.l    A4,-(sp)
  89.         move.l    A1,-(sp)
  90.         jsr    _geta4(pc)
  91.         jsr    _DevClose(pc)
  92.         addq.l    #4,sp
  93.         move.l    (sp)+,A4
  94.         rts
  95.  
  96. _TagDevBeginIO:
  97.         move.l    A4,-(sp)
  98.         move.l    A1,-(sp)
  99.         jsr    _geta4(pc)
  100.         jsr    _DevBeginIO(pc)
  101.         addq.l    #4,sp
  102.         move.l    (sp)+,A4
  103.         rts
  104.  
  105. _TagDevAbortIO:
  106.         move.l    A4,-(sp)
  107.         move.l    A1,-(sp)
  108.         jsr    _geta4(pc)
  109.         jsr    _DevAbortIO(pc)
  110.         addq.l    #4,sp
  111.         move.l    (sp)+,A4
  112.         rts
  113.  
  114.  
  115.         DATA
  116.  
  117. _DeviceName:    dc.b    'fmsdisk.device',0
  118. _IdString:    dc.b    'fmsdisk.device 2.0 (16 April 1990)',13,10,0
  119.  
  120. EndCode:
  121.  
  122.         END
  123.  
  124.